home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / colorpgm.bas < prev    next >
Encoding:
BASIC Source File  |  1985-06-03  |  1.6 KB  |  59 lines
  1. 5 REM
  2. 10 KEY OFF
  3. 20 OPTION BASE 0
  4. 30 COLOR 7,0,0
  5. 35 FG$="7":BG$="0":BD$="0"
  6. 40 OPEN"color.dos"FOR OUTPUT AS #1
  7. 50 DIM FGDOS$(7),BGDOS$(7)
  8. 60 FGDOS$(0)="30":BGDOS$(0)="40"
  9. 70 FGDOS$(1)="34":BGDOS$(1)="44"
  10. 80 FGDOS$(2)="32":BGDOS$(2)="42"
  11. 90 FGDOS$(3)="36":BGDOS$(3)="46"
  12. 100 FGDOS$(4)="31":BGDOS$(4)="41"
  13. 110 FGDOS$(5)="35":BGDOS$(5)="45"
  14. 120 FGDOS$(6)="33":BGDOS$(6)="43"
  15. 130 FGDOS$(7)="37":BGDOS$(7)="47"
  16. 140 CLS
  17. 160 PRINT"set basic & dos colors"
  18. 170 PRINT
  19. 180 PRINT"0 black       8 grey"
  20. 190 PRINT "1 blue       9 lt.blue"
  21. 200 PRINT "2 green      10 lt.green"
  22. 210 PRINT "3 cyan       11 lt.cyan"
  23. 220 PRINT "4 red        12 lt.red"
  24. 230 PRINT "5 magenta    13 lt.magenta"
  25. 240 PRINT "6 brown      14 yellow"
  26. 250 PRINT "7 white      15 bright wt."
  27. 260 PRINT
  28. 270 PRINT "use these colors? y/n?"
  29. 280 A$=INKEY$:IF A$="" THEN 280
  30. 290 IF A$="Y" OR A$="y" THEN 540
  31. 300 PRINT
  32. 310 LINE INPUT "text:    ";A$
  33. 320 IF A$<>"" THEN FG$=A$
  34. 330 IF VAL(FG$)>15 THEN  BEEP:GOTO 140
  35. 340 LINE INPUT "background:    ";A$
  36. 350 IF A$<>="" THEN BG$=A$
  37. 360 IF VAL(BG$)>15 THEN BEEP:GOTO 140
  38. 370 LINE INPUT "border:    ";A$
  39. 380 IF A$<>"" THEN BD$=A$
  40. 390 FG=VAL(FG$)
  41. 400 BG=VAL(BG$)
  42. 410 IF VAL(BD$)>15 THEN BEEP:GOTO 140
  43. 420 IF FG>7 THEN HI$="1;":FG=FG-8:FG$=STR$(FG):FG=FG+8 ELSE HI$="0;"
  44. 430 IF BG>7 THEN BG=BG-8:BG$=STR$(BG)
  45. 440 IF BG<>FG THEN 510
  46. 450 PRINT
  47. 460 BEEP
  48. 470 PRINT "warning"
  49. 480 PRINT "okay y/n?"
  50. 490 A$=INKEY$:IF A$=""THEN 490
  51. 500 IF A$="Y" OR A$="y" THEN 510 ELSE 140
  52. 510 COLOR FG,BG,VAL(BD$)
  53. 520 CLS
  54. 530 GOTO 140
  55. 540 PRINT #1,CHR$(27);"[";HI$;FGDOS$(VAL(FG$));";";BGDOS$(VAL(BG$));"m"
  56. 550 CLOSE
  57. 560 SYSTEM
  58. 570 END
  59. 20 C